/ Mac Expert 1995 Winter / Mac Expert - Winter 95.iso / Les fichiers / Versions démo / MacroModel PowerPC démo ƒ / MacroModel Showcase / MacroModel Showcase.rsrc / VWCI_1421

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 10 00 94 a2 08 | 00 00 00 01 00 00 00 00 |........|........|
|00000010| 00 05 00 00 00 00 00 00 | 02 0c 00 00 02 0c 00 00 |........|........|
|00000020| 02 0c 00 00 02 0c 00 00 | 02 0c 6f 6e 20 6d 6f 75 |........|..on mou|
|00000030| 73 65 55 70 0d 20 20 68 | 69 6c 69 74 65 72 20 31 |seUp.  h|iliter 1|
|00000040| 39 2c 31 33 2c 30 0d 20 | 20 67 6c 6f 62 61 6c 20 |9,13,0. | global |
|00000050| 66 69 65 6c 64 6e 75 6d | 4d 61 72 6b 65 72 2c 43 |fieldnum|Marker,C|
|00000060| 6f 75 6e 74 72 79 43 6f | 64 65 2c 66 69 65 6c 64 |ountryCo|de,field|
|00000070| 6e 75 6d 2c 71 75 61 63 | 6b 0d 20 20 70 75 70 70 |num,quac|k.  pupp|
|00000080| 65 74 73 70 72 69 74 65 | 20 31 38 2c 20 74 72 75 |etsprite| 18, tru|
|00000090| 65 0d 20 20 73 65 74 20 | 74 68 65 20 74 65 78 74 |e.  set |the text|
|000000a0| 20 6f 66 20 63 61 73 74 | 20 22 6d 61 74 72 69 78 | of cast| "matrix|
|000000b0| 49 6e 66 6f 22 20 74 6f | 20 65 6d 70 74 79 0d 20 |Info" to| empty. |
|000000c0| 20 73 65 74 20 66 69 65 | 6c 64 6e 75 6d 6d 61 72 | set fie|ldnummar|
|000000d0| 6b 65 72 20 3d 31 0d 20 | 20 73 65 74 20 63 6f 75 |ker =1. | set cou|
|000000e0| 6e 74 72 79 43 6f 64 65 | 20 74 6f 20 22 76 65 6e |ntryCode| to "ven|
|000000f0| 65 7a 75 65 6c 61 22 0d | 20 20 73 65 74 20 74 68 |ezuela".|  set th|
|00000100| 65 20 74 65 78 74 20 6f | 66 20 63 61 73 74 20 22 |e text o|f cast "|
|00000110| 6d 61 74 72 69 78 49 6e | 66 6f 22 20 3d 20 69 74 |matrixIn|fo" = it|
|00000120| 65 6d 20 66 69 65 6c 64 | 6e 75 6d 6d 61 72 6b 65 |em field|nummarke|
|00000130| 72 20 6f 66 20 66 69 65 | 6c 64 20 63 6f 75 6e 74 |r of fie|ld count|
|00000140| 72 79 63 6f 64 65 0d 20 | 20 73 65 74 20 66 69 65 |rycode. | set fie|
|00000150| 6c 64 6e 75 6d 20 3d 20 | 74 68 65 20 6e 75 6d 62 |ldnum = |the numb|
|00000160| 65 72 20 6f 66 20 69 74 | 65 6d 73 20 69 6e 20 66 |er of it|ems in f|
|00000170| 69 65 6c 64 20 43 6f 75 | 6e 74 72 79 43 6f 64 65 |ield Cou|ntryCode|
|00000180| 0d 20 20 69 66 20 66 69 | 65 6c 64 6e 75 6d 20 3d |.  if fi|eldnum =|
|00000190| 20 31 20 74 68 65 6e 20 | 0d 20 20 20 20 73 65 74 | 1 then |.    set|
|000001a0| 20 74 68 65 20 63 61 73 | 74 6e 75 6d 20 6f 66 20 | the cas|tnum of |
|000001b0| 73 70 72 69 74 65 20 31 | 38 20 74 6f 20 74 68 65 |sprite 1|8 to the|
|000001c0| 20 6e 75 6d 62 65 72 20 | 6f 66 20 63 61 73 74 20 | number |of cast |
|000001d0| 22 6e 6f 6d 6f 76 65 22 | 0d 20 20 65 6c 73 65 0d |"nomove"|.  else.|
|000001e0| 20 20 20 20 73 65 74 20 | 74 68 65 20 63 61 73 74 |    set |the cast|
|000001f0| 4e 75 6d 20 6f 66 20 73 | 70 72 69 74 65 20 31 38 |Num of s|prite 18|
|00000200| 20 74 6f 20 74 68 65 20 | 6e 75 6d 62 65 72 20 6f | to the |number o|
|00000210| 66 20 63 61 73 74 20 22 | 64 6f 77 6e 6f 6e 6c 79 |f cast "|downonly|
|00000220| 22 0d 20 20 65 6e 64 20 | 69 66 0d 65 6e 64 20 6d |".  end |if.end m|
|00000230| 6f 75 73 65 55 70       |                         |ouseUp  |        |
+--------+-------------------------+-------------------------+--------+--------+